home *** CD-ROM | disk | FTP | other *** search
- void build_basis(void)
- {
- int i,j;
- strcpy (objective[0], "z");
- i = 1;
-
- /* create the labels for the orig tableau */
- for (j=1; j<VARIABLES+1; j++) {
- strcpy (var, "X");
- itoa(i, num);
- strcat (var,num);
- strcpy (objective[j], var);
- i++;
- }
- i = 1;
- for (j=VARIABLES+1; j<EQUATIONS+VARIABLES+1;
- j++) {
- strcpy (var, "s");
- itoa(i, num);
- strcat (var,num);
- strcpy (objective[j], var);
- i++;
- }
- strcpy (objective[j], "sol");
- strcpy (var, "z");
- strcpy (basis[0], var);
- for (i=1;i<=EQUATIONS;i++) {
- strcpy (var, "s");
- itoa(i, num);
- strcat (var,num);
- strcpy (basis[i], var);
- }
- }
-
- void print_table(void)
- {
- int i,j;
- printf ("\n");
- printf ("%6s", " basis |");
- for (j=0; j<=COLUMNS; j++) {
- if ( (j==1) || (j==COLUMNS-1) )
- printf (" |");
- printf (" %6s", objective[j]);
- }
- printf ("\n");
- for (j=0; j<COLUMNS+2; j++) {
- printf ("-------");
- }
- printf ("\n");
- for (i=0; i<ROWS;i++) {
- printf (" %6s", basis[i]);
- for (j=0; j<COLUMNS; j++) {
- if ( (j==0) || (j==1) ||
- (j==COLUMNS-1) )
- printf (" |");
- printf (" %6.2f",table[i][j]);
- }
- if (i==0) {
- printf ("\n");
- for (j=0; j<COLUMNS+2; j++) {
- printf ("-------");
- }
- }
- printf ("\n");
- }
- printf ("\n");
- }
-